home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / harvest.cpt / Harvest C / DHashTable.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-06-16  |  1.6 KB  |  67 lines
  1. /*
  2.     Harvest C
  3.     Copyright 1992 Eric W. Sink.  All rights reserved.
  4.     
  5.     This file is part of Harvest C.
  6.     
  7.     Harvest C is free software; you can redistribute it and/or modify
  8.     it under the terms of the GNU Generic Public License as published by
  9.     the Free Software Foundation; either version 2, or (at your option)
  10.     any later version.
  11.     
  12.     Harvest C is distributed in the hope that it will be useful,
  13.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15.     GNU General Public License for more details.
  16.     
  17.     You should have received a copy of the GNU General Public License
  18.     along with Harvest C; see the file COPYING.  If not, write to
  19.     the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  20.     
  21.     Harvest C is not in any way a product of the Free Software Foundation.
  22.     Harvest C is not GNU software.
  23.     Harvest C is not public domain.
  24.  
  25.     This file may have other copyrights which are applicable as well.
  26.  
  27. */
  28.  
  29. /*
  30.     DHashTable.c
  31. */
  32.  
  33. #include "DHashTable.h"
  34.  
  35. void DHashTable::IHashTable(long slots)
  36. {
  37.     numSlots = slots;
  38.     theSlots = (DHashLink **) icemalloc(slots * sizeof (DHashLink *));
  39. }
  40.  
  41. void DHashTable::Dispose(void)
  42. {
  43.     icefree(theSlots);
  44.     inherited::Dispose();
  45. }
  46.  
  47. void DHashTable::Add(DSymbol *sym)
  48. {
  49.     unsigned long hashVal;
  50.     DHashLink *newLink;
  51.     hashVal = sym->Hash(numSlots);
  52.     newLink = new DHashLink;
  53.     newLink->IHashLink(sym,theSlots[hashVal]);
  54.     theSlots[hashVal] = newLink;
  55.     numItems++;
  56. }
  57.  
  58. DSymbol * DHashTable::Find(char *name)
  59. {
  60.     DSymbol *result = NULL;
  61.     unsigned long hashVal;
  62.     hashVal = HashIt(name,numSlots);
  63.     result = theSlots[hashVal]->SearchChain(name);
  64.     return result;
  65. }
  66.  
  67.